EnigmA Amiga Run 1997 February/EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso/enigma/earcd/business/fwmefeng.lha/FW_MEf-e/ISeveral.fw

Text File | 1997-01-02 | 2KB | 2 lines

/* Optimized with RexxOpt 1.7 */
R='0A'X;Dre=0;Sei=0;Address='FinalW';Options results;STATUS PORTNAME;FW=result;address=FW;SIGNAL ON BREAK_C;SIGNAL ON SYNTAX;'ShowMessage 2 1 "Insert Several V1.30e - 97/01/02" "© Heiko Schroeder" "E-Mail: [e-mail]" "(-:" "Ok" "(-:"';GraphicTool;Group;CurrentObject;ObjectId=Result;IF ObjectId=0 THEN;do;'ShowMessage 1 1 "Macro: Insert Several" "A B O R T" "No graphical object selected..." "Okay" "" ""';EXIT;End;STATUS View;Zoom=result;STATUS Pages;Seiten=result;STATUS Page;Seite=result;Copy;IF RC=0 THEN;do;CurrentObject;ObjectID=result;GetObjectCoords ObjectID;Parse var result Seite x y w h;wl=w;hl=h;GetObjectRotation ObjectID;Dreh=result;GetObjectType ObjectID;Typ=result;If Typ=2|Typ=3 then;do;If Seite~=1 then;do;'ShowMessage 1 1 "FW has problems with lines outside" "the page 1... CANCEL" "" "Okay" "" ""';Exit;End;End;Ungroup;RequestText '"Insert Several" "Number of copies" ""';Anzahl=Result;If Anzahl=""|Anzahl=0 then call Ende;RequestText '"Insert Several" "Horizontal displacement in cm" ""';Hor=Result;If Hor="" then Hor=0;RequestText '"Insert Several" "Vertical displacement in cm" ""';Ver=Result;If Ver="" then Ver=0;If Typ~=2&Typ~=3 then;do;RequestText '"Insert Several" "Rotation in Degree" ""';Dre=Result;If Dre="" then Dre=0;RequestText '"Insert Several" "On which page? 0=selected page" ""';Sei=Result;If Sei=""|Sei=0 then Sei=Seite;end;'ShowMessage 1 1 "Screen output?" "" "" "normal" "speed" ""';ba=result;If ba=2 then View 20;s=Sei-Seiten;Do a=1 to s;InsertPageBreak;End;Do i=1 TO Anzahl;Paste;CurrentObject;ObjectID=Result;a=x+(Hor*i);b=y+(Ver*i);Winkel=Dreh+Dre*i;If Typ=2|Typ=3 then;do;w=wl+(Hor*i);h=hl+(Ver*i);Sei=Seite;End;SetObjectCoords ObjectID Sei a b w h;SetObjectRotation ObjectID Winkel;Ungroup;End;End;Redraw;if ba=2 then View Zoom;GoToPage Sei;'ShowMessage 2 1 "Thanks for using." "" "" "@-`-" "Please" ":-))"';Exit;ENDE:;View Zoom;'ShowMessage 1 1 "Incorrect number of copies..." "A B O R T" "" "Okay" "" ""';EXIT;SYNTAX:;View Zoom;'ShowMessage 1 1 "There was an error." "Error-identification you can find in »Ram:Error«" "" "Okay" "" ""';address "REXX";Open("F","Ram:Error","W");write ("F","ATTENTION! FW_MEf V1.3e-Error");write ("F",'Error in line' SIGL ':' ERRORTEXT(RC));write ("F",'Please report the author. » [e-mail] «'||R||R);Close ("F");EXIT;BREAK_C:;View Zoom;'ShowMessage 1 1 "Macro-Break..." "" "" "I know..." "" ""';EXIT